Imports Microsoft.VisualBasic.Compatibility.VB6
Namespace API
    <HideModuleName()> _
    Public Module AppDataFolder
        Function GetDataPath() As String
            Dim A
            If IO.Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\MonsterChat\") = False Then
                IO.Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\MonsterChat\")
                A = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\MonsterChat\"
                Return A
            Else
                A = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\MonsterChat\"
                Return A
            End If
            ' A = GetPath() & "\"
            Return A
        End Function
    End Module
End Namespace